10 REM ****** SWAP TESTPROGRAMM ******
20 PRINTCHR$(147):REM C 128 = WAIT0,1
30 POKE53280,0:POKE53281,5
40 POKE241,1:REM C64 = POKE 646,1
50 REM ----- FARBRAM BELEGEN (AELTERE C64) -----
60 FOR I=0 TO 1000:POKE55296+I,1:NEXTI:REM DAS DAUERT ETWAS
70 REM ----- BILDSCHIRM BELEGEN -----
80 PRINT"WAS DIE ALTE DAME EMPFINDET, WENN SIE,  NACHDEM SIE IHREN KANARIENVOGEL "
90 PRINT"GEFUETTERT HAT UND SPAZIEREN GEGANGEN   IST, BEI DER RUECKKEHR DEN KAEFIG "
100 PRINT"MIT EINEM LEBENDIGEN TRUTHAHN ZUM       PLATZEN VOLL FINDET,"
110 PRINTCHR$(17)CHR$(17)CHR$(17)CHR$(17)CHR$(17)
120 PRINT"ODER DER ALTE HERR,DER,NACHDEM ER UEBER NACHT SEINEN KLEINEN TERRIER "
130 PRINT"AN DIE KETTE GELEGT HAT, EIN NILPFERD   FINDET, DAS UM DIE HUNDHUETTE "
140 PRINT"HERUM SCHNAUBT...":PRINTTAB(20)"(LEWIS CARROLL 1882)"
150 PRINTCHR$(17)CHR$(17)"JEDER TASTENDRUCK FUEHRT ZUM TAUSCH"
160 GETA$:IFA$=""THEN160
170 REM ----- PARAMETER FESTLEGEN -----
180 B1=1024:REM STARTADRESSE BEREICH 1
190 B2=1504:REM STARTADRESSE BEREICH 2
200 L =240:REM LAENGE = 6 ZEILEN ZU JE 40 ZEICHEN
210 REM ----- PARAMETER UEBERGEBEN -----
220 A=INT(B1/256):POKE255,A:POKE254,B1-256*A
230 A=INT(B2/256):POKE253,A:POKE252,B2-256*A
240 A=INT(L/256):POKE251,A:POKE250,L-256*A
250 REM ----- SWAP AUSFUEHREN -----
260 SYS4864:REM C64 = SYS 49152
270 GOTO160